home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / amig_ad_os / avm / prog / source / delete.avmsrc < prev    next >
Text File  |  1977-12-31  |  1KB  |  63 lines
  1. startrecord=true
  2. label=
  3. nodetype=8
  4. line1=parse arg stuff
  5. line2=numlogs = words(stuff) / 2
  6. line3=do i = 1 to numlogs; mailbox = word(stuff, (i - 1) * 2 + 1); logname = word(stuff, (i - 1) * 2 + 2)
  7. line4=    call loadLogEntry(mailbox, logname)
  8. line5=    address command 'delete >nil: <nil: quiet' logFile(mailbox, logname) || "#?"
  9. line6=    if (log.fileName ~= "" & (verify(log.fileName, '/:', 'M') = 0)) then 
  10. line7=        address command 'delete >nil: <nil: quiet' voiceFile(mailbox, log.fileName) || "#?"
  11. line8=    if (log.altFileName ~= "" & (verify(log.altFileName, '/:', 'M') = 0)) then
  12. line9=        address command 'delete >nil: <nil: quiet' voiceFile(mailbox, log.altFileName) || "#?"
  13. line10=    address rexx 'broadcast' 'deletefrommailbox' mailbox logname
  14. nextactiontype=3
  15. nextactionaction=
  16. endrecord=true
  17. startrecord=true
  18. label=
  19. nodetype=8
  20. line1=end
  21. line2=
  22. line3=
  23. line4=
  24. line5=
  25. line6=
  26. line7=
  27. line8=
  28. line9=
  29. line10=
  30. nextactiontype=3
  31. nextactionaction=
  32. endrecord=true
  33. startrecord=true
  34. label=error
  35. nodetype=8
  36. line1=
  37. line2=
  38. line3=
  39. line4=
  40. line5=
  41. line6=
  42. line7=
  43. line8=
  44. line9=
  45. line10=
  46. nextactiontype=2
  47. nextactionaction=exit
  48. endrecord=true
  49. startrecord=true
  50. label=
  51. nodetype=7
  52. filename=avm:rexx/logfunctions.avm
  53. nextactiontype=3
  54. nextactionaction=
  55. endrecord=true
  56. startrecord=true
  57. label=
  58. nodetype=7
  59. filename=avm:rexx/debugfunctions.avm
  60. nextactiontype=3
  61. nextactionaction=
  62. endrecord=true
  63.